100 REM **************************
110 REM *       LONG LINES       *
120 REM * BY RICK NASH   5/28/86 *
130 REM **************************
140 REM
150 PRINT"[147]":PRINT:PRINTTAB(7)"-CHECKING DATA STATEMENTS-"
160 CK=0:FORI=49152TO49337:READD:POKEI,D:CK=CK+D:NEXT
170 IFCK<>30183THENPRINT:PRINTTAB(8)"ERROR IN DATA STATEMENTS":END
180 PRINTCHR$(147):PRINT:PRINTTAB(10)"DISK OR TAPE (D/T) ";:INPUTA$
190 IFLEFT$(A$,1)="T"THENDV$="PREPARE TAPE":DV=1:GOTO220
200 IFLEFT$(A$,1)="D"THENDV$="INSERT DISK":DV=8:GOTO220
210 GOTO180
220 PRINT:PRINTTAB(4)DV$", THEN PRESS <RETURN>"
230 GETA$:IFA$<>CHR$(13)THEN230
240 PRINT:PRINTTAB(13)"-WRITING FILE-
250 F$[178]"LONG LINES":[151]251,[194](71):[151]252,[194](72)
260 AD[178][194](251)[170][194](252)[172]256
270 [151]183,[194](AD):[151]187,[194](AD[170]1):[151]188,[194](AD[170]2)
280 [151]184,DV:[151]186,DV:[151]185,1
290 [151]251,0:[151]252,192:[151]780,251:[151]781,186:[151]782,192:[158]65496
300 [153][199](147):[153]:[153][163]17)"DONE!!":[128]
310 [131] 169,0,168,133,251,133,253,162
320 [131] 160,134,252,162,224,134,254,177
330 [131] 251,145,251,177,253,145,253,200
340 [131] 208,245,230,252,166,254,232,208
350 [131] 236,165,1,41,253,133,1,162
360 [131] 21,189,96,165,157,192,192,202
370 [131] 16,247,162,29,189,202,170,157
380 [131] 214,192,202,16,247,162,0,160
390 [131] 0,189,107,192,240,15,133,251
400 [131] 189,134,192,133,252,189,160,192
410 [131] 145,251,232,208,236,96,165,95
420 [131] 208,2,198,96,198,95,164,11
430 [131] 185,251,192,145,95,136,208,248
440 [131] 76,42,165,203,218,222,132,186
450 [131] 205,208,231,241,6,11,245,19
460 [131] 22,206,31,32,33,132,133,253
470 [131] 252,162,180,194,255,0,192,192
480 [131] 192,165,165,165,165,165,165,166
490 [131] 166,164,165,165,192,165,165,165
500 [131] 164,164,192,192,232,232,230,231
510 [131] 193,193,192,193,193,192,192,193
520 [131] 192,193,192,193,192,192,176,76
530 [131] 86,192,192,192,1,1,4,4
540 [131] 159,159